  PUBLIC FUNCTION long ReadMessage(long ComNumber,long  nBlock,long  Encrypt,ref long  DBCardno,ref long  DBCardtype,&
    ref long  DBPassLevel, ref string  CardPass,ref string  DBSystemcode,ref string  DBAddress,&
   ref string  SDateTime)LIBRARY "HUNERF.dll" alias for "ReadMessage;Ansi"

----------------------------------------------------------------------------------



long ll_Ret,ll_ComNumber,ll_nBlock,ll_Encrypt,ll_Cardtype, ll_RPassLevel,ll_RCardtype,ll_Length,ll_CardNumber
string ls_CardPass, ls_RSystemCode, ls_RAddress,ls_RDateTime 
DateTime ldt_Now
//ls_CardPass=gs_CardPass
ls_RSystemCode=Space(16)
ls_RAddress=Space(128)
ls_RDateTime=Space(18)

ll_ComNumber=long(em_ComNumber.Text)      //˿ںţʵд
IF isnull(ll_ComNumber) or ll_ComNumber<0 then
	Messagebox("Information","¼˿ں",Exclamation!)
	RETURN
END IF

ll_nBlock=long(em_nBlock.Text)                      //Ĭ4

ll_Encrypt=long(em_Encrypt.Text)                  //Ĭ1

ls_CardPass=em_CardPass.Text                   //Ĭ"82A094FFFFFF"

ls_RSystemCode=em_SystemCode.Text          //ݿmscݿĬ·ΪC:\HUNELOCK\DATA\HData賧Ҵݿ


ll_Ret= ReadMessage(ll_ComNumber,ll_nBlock,ll_Encrypt,ref ll_CardNumber,ref  ll_RCardtype, &
						ref  ll_RPassLevel,ref ls_CardPass,ref ls_RSystemCode,ref ls_RAddress, &
						ref ls_RDateTime)
IF (ll_Ret<>0) THEN	
  MessageBox("Information","Ƭʧ! :"+String(ll_Ret),Stopsign!,OK!)
  RETURN
END IF

MessageBox("Information","Ƭɹ! :"+String(ll_CardNumber))